home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmpP_1012_Palette < prev    next >
Encoding:
Text File  |  1992-04-08  |  609 b   |  29 lines
  1. %case window field%
  2.     %HandleName%:%        %ControlHandle;
  3.     %fieldname%:%        %integer;
  4. %case create%
  5.     %HandleName% := GetNewControl (%cntlID%, newWindow);
  6.     %fieldName% := GetCtlMin (%HandleName%);
  7.     %Enable?%
  8. %case track%
  9.     if whichControl = %HandleName% then begin
  10.         TrackPalette (%HandleName%, where, %fieldname%);
  11.     end;
  12. %case itemNr%
  13.     %DefineItem%
  14. %case dialog field%
  15.     %fieldname%:%        %integer;
  16.     %Enable?%
  17.     %haveField%
  18. %case init field%
  19.     %fieldname% := 1;
  20.     %Enable?%
  21. %case set%
  22.     SetCtlChoice (%itemname%, %fieldname%);
  23. %case enable%
  24.     %Enable?%
  25. %case hit%
  26.     %itemname%: begin
  27.             DoPalette (itemNr, %fieldname%);
  28.         end;
  29.